home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / kcl.lha / lsp / iolib.data < prev    next >
Text File  |  1986-07-03  |  2KB  |  107 lines
  1.           
  2. #(
  3. #!
  4. (lisp::in-package 'user::lisp)
  5. #!
  6. (lisp::export '(lisp::with-open-stream lisp::with-input-from-string lisp::with-output-to-string))
  7. #!
  8. (lisp::export '(lisp::read-from-string))
  9. #!
  10. (lisp::export '(lisp::write-to-string lisp::prin1-to-string lisp::princ-to-string))
  11. #!
  12. (lisp::export 'lisp::with-open-file)
  13. #!
  14. (lisp::export '(lisp::y-or-n-p lisp::yes-or-no-p))
  15. #!
  16. (lisp::export 'lisp::dribble)
  17. #!
  18. (lisp::in-package 'lisp::system)
  19. (lisp::optimize (lisp::safety 2) (lisp::space 3))
  20. lisp::let
  21. lisp::unwind-protect
  22. lisp::progn
  23. lisp::close
  24. lisp::make-string-input-stream
  25. lisp::setf
  26. system::get-string-input-stream-index
  27. system::make-string-output-stream-from-string
  28. (lisp::make-string-output-stream)
  29. lisp::get-output-stream-string
  30. 0
  31. :stream
  32. lisp::open
  33. lisp::*query-io*
  34. "~&~?  (Y or N) "
  35. "Y"
  36. "N"
  37. "~&~?  (Yes or No) "
  38. "YES"
  39. "NO"
  40. lisp::*read-suppress*
  41. :initial-contents
  42. #\#
  43. #\a
  44. system::sharp-a-reader
  45. #\A
  46. "~S is an extra argument for the #s readmacro."
  47. system::is-a-structure
  48. "~S is not a structure."
  49. system::structure-constructors
  50. "The structure ~S has no structure constructor."
  51. lisp::keyword
  52. #\s
  53. system::sharp-s-reader
  54. #\S
  55. system::*dribble-stream*
  56. system::*dribble-io*
  57. system::*dribble-namestring*
  58. system::*dribble-saved-terminal-io*
  59. "DRIBBLE.LOG"
  60. :supersede
  61. "Not in dribble."
  62. lisp::*terminal-io*
  63. "*TERMINAL-IO* was rebound while DRIBBLE is on.~%~
  64.                    You may miss some dribble output."
  65. "~&Finished dribbling to ~A."
  66. "Already in dribble (to ~A)."
  67. :direction
  68. :output
  69. :if-exists
  70. :if-does-not-exist
  71. :create
  72. "~&Starts dribbling to ~A (~d/~d/~d, ~d:~d:~d)."
  73. lisp::proclaim
  74. lisp::with-open-stream
  75. lisp::with-input-from-string
  76. lisp::with-output-to-string
  77. lisp::read-from-string
  78. lisp::write-to-string
  79. lisp::prin1-to-string
  80. lisp::princ-to-string
  81. lisp::with-open-file
  82. lisp::y-or-n-p
  83. lisp::yes-or-no-p
  84. lisp::set-dispatch-macro-character
  85. lisp::dribble
  86. system::find-declarations
  87. :index
  88. :start
  89. :end
  90. :preserve-whitespace
  91. lisp::read-preserving-whitespace
  92. :escape
  93. :radix
  94. :base
  95. :circle
  96. :pretty
  97. :level
  98. :length
  99. :case
  100. :gensym
  101. :array
  102. lisp::make-string-output-stream
  103. lisp::make-array
  104. lisp::warn
  105. lisp::get-decoded-time
  106. )
  107.